bscols(widths = c(3, NA),
  list(
    filter_checkbox("dist", "dist", shared_lw, ~dist, inline = TRUE)
  ),
  plot_ly(data = shared_lw) %>%
      add_markers(x = ~dist, y = ~speed)
  )  
function filter_default() {
    document.getElementById("dist").getElementsByClassName("selectized")[0].selectize.setValue(2, false);
 }
window.onload = filter_default;